# -------------------------------------------------------------------
# ATTENZIONE: la funzione sample e' stata modificata 
# a partire da R 3.6.0 per cui i "vecchi risultati"
# non posso essere riprodotti di default
# http://hostingwin.unitn.it/micciolo/PeM/01-rng.pdf
# -------------------------------------------------------------------
# se si vogliono riprodurre i risultati dei Laboratori
# con le versioni pił recenti di R va eseguita la seguente istruzione
# -------------------------------------------------------------------
RNGkind(sample.kind="Rounding")
# -------------------------------------------------------------------

voto <- c("D","R")

sample(x=voto,size=10,replace=TRUE)

set.seed(111111)
y <- sample(x=voto,size=1000,replace=TRUE)
table(y)

y <- sample(x=voto,size=1000,replace=TRUE); table(y)
y <- sample(x=voto,size=1000,replace=TRUE); table(y)
y <- sample(x=voto,size=1000,replace=TRUE); table(y)
y <- sample(x=voto,size=1000,replace=TRUE); table(y)